home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Peeker Nr. 15 (1986)(Verlag, Dr. Alfred Huethig)(DE).zip / Peeker Nr. 15 (1986)(Verlag, Dr. Alfred Huethig)(DE).do / REELL.10.bas < prev    next >
BASIC Source File  |  1996-12-24  |  2KB  |  39 lines
  1. 100  REM +---------------------+
  2. 110  REM !                     !
  3. 120  REM ! [nderung von Byte 5 !
  4. 130  REM !                     !
  5. 140  REM +---------------------+
  6. 150  HOME : PRINT " <- UND -> BEWEGEN ^  <RET> AENDERT BIT"
  7. 160  PRINT " <SPACE> = NEUE ZAHL  <ESC> = ENDE": FOR I = 1 TO 40: PRINT "-";: NEXT : POKE 34,5
  8. 170  CLEAR :X$ = " ^ ":B$ =  CHR$(8): HOME : FOR I = 1 TO 5: HTAB 14: PRINT I;
  9. 180  INPUT ". ZAHL: ";Z$:Z(I) =  VAL(Z$)
  10. 190  IF Z$ = ""  OR Z(I) <0  OR Z(I) >255  THEN I = I -1: VTAB  PEEK(37): CALL  -868
  11. 200  NEXT :ZW = Z(2): GOSUB 360
  12. 210 J = J +1:S =  INT(Z(5)/2)
  13. 220 B(J) = Z(5) -2 *S:Z(5) = S
  14. 230 HT = 19: IF S >0  THEN 210
  15. 240  VTAB 14: HTAB 12: PRINT "NUMMER: ";: FOR I = 7 TO 0  STEP  -1: PRINT I;: NEXT 
  16. 250  VTAB 15: HTAB 12: PRINT "BYTE 5: ";: INVERSE : FOR I = 8 TO 1  STEP  -1
  17. 260  PRINT B(I);: NEXT : NORMAL 
  18. 270  VTAB 16: HTAB HT: CALL  -868: PRINT X$B$B$;
  19. 280  WAIT  -16384,128:A =  PEEK( -16384): POKE  -16368,0
  20. 290  IF A = 149  AND  PEEK(36) <26  THEN  PRINT X$B$B$;:HT = HT +1
  21. 300  IF A = 136  AND  PEEK(36) >19  THEN  PRINT B$B$X$B$B$;:HT = HT -1
  22. 310  ON A = 155 GOTO 480: ON A = 160 GOTO 170: ON A < >141 GOTO 280
  23. 320 B(27 -HT) = 1 -B(27 -HT): HTAB HT +1: VTAB 15: PRINT B(27 -HT)
  24. 330  FOR I = 1 TO 5:T =  PEEK( -16336): NEXT :J = 0: FOR I = 1 TO 8
  25. 340 J = J +B(I) *2 ^(8 -I): NEXT :Z(5) = J
  26. 350  GOSUB 450:Z(2) = ZW: GOSUB 360: GOTO 240
  27. 360 V$ = "+": IF Z(2) >127  THEN V$ = "-"
  28. 370  IF Z(2) <128  THEN Z(2) = Z(2) +128
  29. 380 D = 0: FOR I = 1 TO 4:D = D +Z(I +1) *256 ^ -I: NEXT : PRINT :K = Z(1)
  30. 390  IF K = 1  THEN D = D *2 ^(K -128): GOTO 410
  31. 400 D = D *2 ^(K -129):D = D +D
  32. 410  VTAB 22: CALL  -958: HTAB 12 - LEN( STR$(D))/2
  33. 420  PRINT "DIE ZAHL HEISST "V$;
  34. 430  IF D <1  AND D >1E -3  THEN  PRINT "0";
  35. 440  PRINT D: RETURN 
  36. 450 S = 0: FOR I = 8 TO 1  STEP  -1
  37. 460 S = S +B(I) *2 ^(I -1): NEXT :Z(5) = S
  38. 470  INVERSE : VTAB 10: HTAB 23: CALL  -868: PRINT S: NORMAL : RETURN 
  39. 480  TEXT : HOME : END